home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Graphics Plus
/
Graphics Plus.iso
/
general
/
visulztn
/
saoimage
/
saoimage.lha
/
clrread.c
< prev
next >
Wrap
C/C++ Source or Header
|
1990-04-28
|
9KB
|
314 lines
#ifndef lint
static char SccsId[] = "%W% %G%";
#endif
/* Module: clrread.c (Color Read)
* Purpose: Read and Write file and internally stored color tables
* Subroutine: parse_color_file() returns: int
* Xlib calls: none
* Copyright: 1989 Smithsonian Astrophysical Observatory
* You may do anything you like with this file except remove
* this copyright. The Smithsonian Astrophysical Observatory
* makes no representations about the suitability of this
* software for any purpose. It is provided "as is" without
* express or implied warranty.
* Modified: {0} Michael VanHilst initial version 21 Nov 1989
* {n} <who> -- <does what> -- <when>
*/
#include <stdio.h> /* stderr, NULL, etc. */
#include <ctype.h> /* toupper, isalpha, etc. */
#include "hfiles/colormap.h" /* color table storage structs */
#include "hfiles/define.h" /* define SZ_LINE, etc. */
/*
* Subroutine: parse_color_file
* Purpose: Parse values after color identifier
*/
int parse_color_file ( fp, ctable, max_entries )
ColorTable *ctable;
int max_entries;
FILE *fp;
{
int len, i;
int line_num;
char line[SZ_LINE];
char cbuf[SZ_LINE];
struct SubTable *table;
static int parse_color_table(), advance_to_ascii();
line_num = 0;
/* advance to first non-comment line */
len = advance_to_ascii(fp, line, cbuf, SZ_LINE, &line_num, 1);
if( len == 0 )
return( 0 );
if( (len < 0) || (len != 11) ||
(strncmp(cbuf, "PSEUDOCOLOR", 11) != 0) ) {
(void)fprintf(stderr,
"ERROR: pseudocolor keyword not found at head of file\n");
return( 0 );
}
/* advance to next non-comment line */
len = advance_to_ascii(fp, line, cbuf, SZ_LINE, &line_num, 1);
for( i=0; i<3; i++ ) {
switch( len ) {
case 0:
return( 0 );
case 3:
if( strncmp(cbuf, "RED", 3) != 0 )
table = NULL;
else
table = &ctable->red;
break;
case 4:
if( strncmp(cbuf, "BLUE", 4) != 0 )
table = NULL;
else
table = &ctable->blue;
break;
case 5:
if( strncmp(cbuf, "GREEN", 5) != 0 )
table = NULL;
else
table = &ctable->green;
break;
default:
table = NULL;
}
if( table == NULL ) {
(void)fprintf(stderr,
"ERROR: unrecognized keyword %s in line %d\n %s\n",
cbuf, line_num, line);
return( 0 );
} else {
if( (len = parse_color_table(fp, line, cbuf, len + 1, SZ_LINE,
&line_num, table, max_entries, i))
< 0 )
return( 0 );
}
}
return( 1 );
}
/*
* Subroutine: parse_color_table
* Purpose: Read color table entries for one color
* Note: Values may start with word "gamma" and its value
*/
static int parse_color_table ( fp, line, cbuf, i, len, line_num,
farb, max_entries, color_cnt )
FILE *fp;
char *line; /* i/l: line as read from file */
char *cbuf; /* i/l: buffer for processing string */
int i; /* i/l: index in working buffer of token */
int len; /* i: length of character buffers */
int *line_num; /* i/o: line number in file */
struct SubTable *farb; /* i/o: structure to get color table info */
int max_entries; /* i: maximum number of entries in table */
int color_cnt; /* i: number of colors done so far */
{
float level, intensity;
char *level_token, *intensity_token;
int status, entry;
static int advance_to_ascii(), prep_alpha();
int check_parens();
char *next_token();
status = 0;
intensity_token = NULL;
/* first check rest of this line */
if( (cbuf[i] != '\0') && (cbuf[i] != '#') && (cbuf[i] != '\n') ) {
/* strip of parens and other non-space spacers */
if( check_parens(line, cbuf + i) < 0 )
return( -1 );
/* are there any tokens? */
intensity_token = next_token(cbuf + i, 1);
}
/* else look for a later line */
if( intensity_token == NULL ) {
i = 0;
status = advance_to_ascii(fp, line, cbuf, len, line_num, 1);
if( status == 0 )
return( -1 );
/* prepare for scanf parsing, even though it starts with alpha */
if( status > 0 ) {
if( check_parens(line, cbuf) < 0 )
return( -1 );
}
if( (intensity_token = next_token(cbuf + i, 1)) == NULL) {
(void)fprintf(stderr, "ERROR: parse error at line %d or %d\n %s\n",
*line_num - 1, *line_num, line);
return( -1 );
}
}
/* first look for gamma */
/* don't do this prep if we know line starts with alpha */
if( status <= 0 ) {
/* this will be a check-paren'd spaced out line */
while( cbuf[i] == ' ' ) i++;
if( isalpha(cbuf[i]) )
/* aha! */
status = prep_alpha(cbuf + i, 10);
}
/* do we have alpha? */
if( status > 0 ) {
if( (status == 5) && (strncmp(cbuf+i, "GAMMA", 5) == 0) &&
(sscanf(intensity_token, "%f", &intensity) == 1) ) {
farb->gamma = intensity;
if( intensity != 1.0 )
farb->do_gamma = 1;
level_token = next_token(intensity_token, 1);
} else {
(void)fprintf(stderr, "ERROR: parse error in line %d\n %s\n",
*line_num, line);
return( -1 );
}
} else
level_token = cbuf + i;
i = 0;
while( i < max_entries ) {
while( level_token != NULL ) {
if( (intensity_token = next_token(level_token, 1)) == NULL ) {
(void)fprintf(stderr,"ERROR: odd number of tokens\n");
return( -1 );
}
if( sscanf(level_token, "%f %f", &level, &intensity) != 2 ) {
(void)fprintf(stderr,"ERROR: could not parse floating values\n %s\n",
line);
return( -1 );
}
if( (i > 0) && (level < farb->cell_level[i-1]) ) {
(void)fprintf
(stderr,"ERROR: levels not consecutive and assending (%.2f)\n %s\n",
level, line);
return( -1 );
} else if( (intensity < 0.0) || (intensity > 1.0) ) {
(void)fprintf(stderr,
"ERROR: intensity not between 0 and 1 (%.2f)\n %s\n",
intensity, line);
return( -1 );
}
farb->cell_level[i] = level;
farb->intensity[i] = intensity;
/* too many entries for table size? */
if( ++i >= max_entries ) {
(void)fprintf(stderr, "ERROR: too many entries defined\n");
return( -1 );
}
level_token = next_token(intensity_token, 1);
}
/* advance to next non-comment line */
status = advance_to_ascii(fp, line, cbuf, len, line_num, 0);
/* check for termination conditions (text token or end of file) */
if( status >= 0 ) {
if( i < 2 )
return( -1 );
else {
/* error if real parsing error, or not last color */
if( (status == 0) && ((*line_num != 0) || (color_cnt < 2)) )
return( -1 );
else {
/* this is the good return */
farb->vertex_cnt = i;
return( status );
}
}
} else
level_token = cbuf;
}
return( -1 );
}
/*
* Subroutine: advance_to_ascii
* Purpose: Get next processable line, and prepare a copy for processing
* Returns: Positive character count if string starts with a name
* Negative val if string starts with a number or paren
* 0 if file ended, or first character was neither char nor num
*/
static int advance_to_ascii ( fp, line, scratch, len, line_num, dont_end )
FILE *fp; /* i: file descriptor */
char *line; /* i: buffer to get entire line */
char *scratch; /* i/o: buffer to get string ready for processing */
int len; /* i: length of buffers */
int *line_num; /* i/o: current line number */
int dont_end; /* flag that more is definitely expected */
{
int i;
static int find_token(), prep_alpha();
int check_parens();
/* advance to first non-comment line */
do {
if( fgets(line, len, fp) == NULL ) {
if( dont_end )
(void)fprintf(stderr, "ERROR: premature end of file at line %d\n",
*line_num);
else
*line_num = 0;
return( 0 );
}
++(*line_num);
if( (i = find_token(line, len)) >= 0 ) {
line[len-1] = '\0';
(void)strcpy(scratch, &line[i]);
if( isalpha(line[i]) )
return( prep_alpha(scratch, len - i) );
else if( (line[i] == '(') || (line[i] == '.') || isdigit(line[i]) ) {
if( (i = check_parens(line, scratch)) < 0 )
return( 0 );
else
return( -i );
} else {
(void)fprintf(stderr, "ERROR: could not parse line %d:\n %s\n",
*line_num, line);
return( 0 );
}
}
} while( *line_num < 1000 );
(void)fprintf(stderr, "ERROR: file has too many lines to be reasonable\n");
return( 0 );
}
/*
* Subroutine: find_token
* Purpose: Point at first non-space character if it might be parsable
* Returns: index of character, or -1 if line ends or is comment
*/
static int find_token ( line, len )
char *line;
int len;
{
int i = 0;
/* advance to next first non-space character */
while( (line[i] == ' ') || (line[i] == '\t') ) {
if( ++i >= len )
return( -1 );
}
if( (line[i] == '\0') || (line[i] == '#') || (line[i] == '\n') )
return( -1 );
else
return( i );
}
/*
* Subroutine: prep_alpha
* Purpose: Convert all characters to upper case and null terminate word
* Returns: Number of characters in the word
*/
static int prep_alpha ( line, len )
char *line;
{
int i = 0;
/* advance to next first non-space character */
while( (i < len) && (isalpha(line[i])) ) {
if( islower(line[i]) )
line[i] = toupper(line[i]);
i++;
}
if( line[i] != '\0' )
line[i] = ' ';
return( i );
}